home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 05 Programming / TOKEN.BIN (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  512b  |  14 lines
  1. 10 POKE56,160:CLR:F$="":GOTO2020
  2. 20 INPUT"[147]FILENAME";F$
  3. 30 IFF$=""THEN20
  4. 40 F$="0:"+F$
  5. 50 OPEN1,8,8,F$
  6. 60 PRINT"ONE MOMENT PLEASE..."
  7. 70 SYS49152
  8. 2020 PRINT"ONE MOMENT PLEASE..."
  9. 2030 P=PEEK(45)+256*PEEK(46)-1
  10. 2040 IFPEEK(P)THENP=P-1:GOTO2040
  11. 2050 P=P-175
  12. 2060 FORI=0TO175:POKE49152+I,PEEK(P+I):NEXT
  13. 2070 POKE2070,48:GOTO20
  14.